home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / borland / jnfb88.arc / CFLOAT.ARC / DNORMAL2.C < prev    next >
Encoding:
Text File  |  1987-06-23  |  228 b   |  11 lines
  1. /* Listing 2: */
  2.  
  3. double x,y,z;
  4. main(){
  5.      x = 1.e-300;
  6.      y = x *(1. + 1.e-15);
  7.      z = x - y;
  8.      if (z == 0.) puts("z = 0, even though z = x - y and");
  9.      if (x == y) puts("x == y"); else puts("x != y");
  10. }
  11.